home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / SetAttributesDir / Pearls / dev / Includes / Asm / SetAttributes
Text File  |  1995-02-27  |  3KB  |  96 lines
  1. .k ScriptDir/A
  2. Failat 21
  3. Protect "datatypes" "RWED"
  4. FileNote "datatypes" ""
  5. CD "datatypes"
  6. Assign ScriptDir<$$>.5: "<ScriptDir>"
  7. Execute "ScriptDir<$$>.5:datatypes/SetAttributes" "ScriptDir<$$>.5:datatypes"
  8. CD /
  9. Protect "devices" "RWED"
  10. FileNote "devices" ""
  11. CD "devices"
  12. Assign ScriptDir<$$>.5: "<ScriptDir>"
  13. Execute "ScriptDir<$$>.5:devices/SetAttributes" "ScriptDir<$$>.5:devices"
  14. CD /
  15. Protect "diskfont" "RWED"
  16. FileNote "diskfont" ""
  17. CD "diskfont"
  18. Assign ScriptDir<$$>.5: "<ScriptDir>"
  19. Execute "ScriptDir<$$>.5:diskfont/SetAttributes" "ScriptDir<$$>.5:diskfont"
  20. CD /
  21. Protect "dos" "RWED"
  22. FileNote "dos" ""
  23. CD "dos"
  24. Assign ScriptDir<$$>.5: "<ScriptDir>"
  25. Execute "ScriptDir<$$>.5:dos/SetAttributes" "ScriptDir<$$>.5:dos"
  26. CD /
  27. Protect "exec" "RWED"
  28. FileNote "exec" ""
  29. CD "exec"
  30. Assign ScriptDir<$$>.5: "<ScriptDir>"
  31. Execute "ScriptDir<$$>.5:exec/SetAttributes" "ScriptDir<$$>.5:exec"
  32. CD /
  33. Protect "gadgets" "RWED"
  34. FileNote "gadgets" ""
  35. CD "gadgets"
  36. Assign ScriptDir<$$>.5: "<ScriptDir>"
  37. Execute "ScriptDir<$$>.5:gadgets/SetAttributes" "ScriptDir<$$>.5:gadgets"
  38. CD /
  39. Protect "graphics" "RWED"
  40. FileNote "graphics" ""
  41. CD "graphics"
  42. Assign ScriptDir<$$>.5: "<ScriptDir>"
  43. Execute "ScriptDir<$$>.5:graphics/SetAttributes" "ScriptDir<$$>.5:graphics"
  44. CD /
  45. Protect "hardware" "RWED"
  46. FileNote "hardware" ""
  47. CD "hardware"
  48. Assign ScriptDir<$$>.5: "<ScriptDir>"
  49. Execute "ScriptDir<$$>.5:hardware/SetAttributes" "ScriptDir<$$>.5:hardware"
  50. CD /
  51. Protect "intuition" "RWED"
  52. FileNote "intuition" ""
  53. CD "intuition"
  54. Assign ScriptDir<$$>.5: "<ScriptDir>"
  55. Execute "ScriptDir<$$>.5:intuition/SetAttributes" "ScriptDir<$$>.5:intuition"
  56. CD /
  57. Protect "Legal.README" "RWED"
  58. FileNote "Legal.README" ""
  59. Protect "libraries" "RWED"
  60. FileNote "libraries" ""
  61. CD "libraries"
  62. Assign ScriptDir<$$>.5: "<ScriptDir>"
  63. Execute "ScriptDir<$$>.5:libraries/SetAttributes" "ScriptDir<$$>.5:libraries"
  64. CD /
  65. Protect "prefs" "RWED"
  66. FileNote "prefs" ""
  67. CD "prefs"
  68. Assign ScriptDir<$$>.5: "<ScriptDir>"
  69. Execute "ScriptDir<$$>.5:prefs/SetAttributes" "ScriptDir<$$>.5:prefs"
  70. CD /
  71. Protect "resources" "RWED"
  72. FileNote "resources" ""
  73. CD "resources"
  74. Assign ScriptDir<$$>.5: "<ScriptDir>"
  75. Execute "ScriptDir<$$>.5:resources/SetAttributes" "ScriptDir<$$>.5:resources"
  76. CD /
  77. Protect "rexx" "RWED"
  78. FileNote "rexx" ""
  79. CD "rexx"
  80. Assign ScriptDir<$$>.5: "<ScriptDir>"
  81. Execute "ScriptDir<$$>.5:rexx/SetAttributes" "ScriptDir<$$>.5:rexx"
  82. CD /
  83. Protect "utility" "RWED"
  84. FileNote "utility" ""
  85. CD "utility"
  86. Assign ScriptDir<$$>.5: "<ScriptDir>"
  87. Execute "ScriptDir<$$>.5:utility/SetAttributes" "ScriptDir<$$>.5:utility"
  88. CD /
  89. Protect "workbench" "RWED"
  90. FileNote "workbench" ""
  91. CD "workbench"
  92. Assign ScriptDir<$$>.5: "<ScriptDir>"
  93. Execute "ScriptDir<$$>.5:workbench/SetAttributes" "ScriptDir<$$>.5:workbench"
  94. CD /
  95. Assign ScriptDir<$$>.5:
  96.